unit InputBoxesLookupDlg;

interface                      

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InputBoxes, wwdblook, Wwdbdlg, fcLabel, ExtCtrls, StdCtrls,
  Mask, wwdbedit, Wwdotdot, Wwdbcomb, wwidlg, Buttons;

type
  TfmInputBoxesLookupDlg = class(TfmInputBoxes)
    tcBasValue: TwwDBLookupComboDlg;
    procedure tcBasValueCloseDialog(Dialog: TwwLookupDlg);
    procedure tcBasValueExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iReturnFieldIndex : Integer;
  end;

var
  fmInputBoxesLookupDlg: TfmInputBoxesLookupDlg;

implementation

{$R *.dfm}

procedure TfmInputBoxesLookupDlg.tcBasValueCloseDialog(
  Dialog: TwwLookupDlg);
begin
  inherited;
  tcBasValue.Tag := Dialog.DataSource1.DataSet.Fields[iReturnFieldIndex].AsInteger;
end;

procedure TfmInputBoxesLookupDlg.tcBasValueExit(Sender: TObject);
begin
  inherited;
  if Trim(tcBasValue.Text) = '' then
    tcBasValue.Tag := 0;
end;

end.
